home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / SUPER.ZIP / 123BOX.TXT next >
Text File  |  1997-04-07  |  2KB  |  51 lines
  1. /bx1 {
  2. set %ttalk *1
  3. set %lentalk $len(%ttalk)
  4. set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  5. :loop
  6. set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  7. inc %p
  8. if ( $mid(%p,1,%i) != á) { inc %c }
  9. if ( %c > 6 ) { set %c 1 }
  10. if ( $mid(%p,1,%i) != $null ) { goto loop }
  11. /inc %lentalk 2
  12. set %line $str(%lentalk,*)
  13. say 10,10 %line 
  14. say 10,10*1,1  %o 10,10*15,15*
  15. say 10,10 %line 15,15*
  16. say 0,0*15,15 %line 
  17. }
  18. /bx2 {
  19. set %ttalk *1
  20. set %lentalk $len(%ttalk)
  21. set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  22. :loop
  23. set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  24. inc %p
  25. if ( $mid(%p,1,%i) != á) { inc %c }
  26. if ( %c > 6 ) { set %c 1 }
  27. if ( $mid(%p,1,%i) != $null ) { goto loop }
  28. /inc %lentalk 2
  29. set %line $str(%lentalk,*)
  30. say 14,14 %line 
  31. say 14,14*1,1  %o 14,14*15,15*
  32. say 14,14 %line 15,15*
  33. say 0,0*15,15 %line 
  34. }
  35. /bx3 {
  36. set %ttalk *1
  37. set %lentalk $len(%ttalk)
  38. set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  39. :loop
  40. set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  41. inc %p
  42. if ( $mid(%p,1,%i) != á) { inc %c }
  43. if ( %c > 6 ) { set %c 1 }
  44. if ( $mid(%p,1,%i) != $null ) { goto loop }
  45. /inc %lentalk 2
  46. set %line $str(%lentalk,*)
  47. say 15,15 %line 
  48. say 15,15*1,1  %o 15,15*14,14*
  49. say 15,15 %line 14,14*
  50. say 0,0*14,14 %line 
  51. }